home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1989-02-16 | 6.4 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 1%
| dexvert
| Combustion 2 Particle Library (other/combustion2ParticleLibrary)
| ext
| Unsupported |
| 100%
| file
| Emacs v18 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| gt2
| Kopftext: '(provide (quote compile))
| default (weak)
| |
| 100%
| detectItEasy
| Format: plain text[LF]
| default (weak)
| |
| 100%
| xdgMime
| text/x-emacs-lisp
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0a 28 70 72 6f 76 69 64 | 65 20 28 71 75 6f 74 65 |.(provid|e (quote|
|00000010| 20 63 6f 6d 70 69 6c 65 | 29 29 0a 0a 28 64 65 66 | compile|))..(def|
|00000020| 76 61 72 20 63 6f 6d 70 | 69 6c 61 74 69 6f 6e 2d |var comp|ilation-|
|00000030| 70 72 6f 63 65 73 73 20 | 6e 69 6c 20 22 5c 0a 50 |process |nil "\.P|
|00000040| 72 6f 63 65 73 73 20 63 | 72 65 61 74 65 64 20 62 |rocess c|reated b|
|00000050| 79 20 63 6f 6d 70 69 6c | 65 20 63 6f 6d 6d 61 6e |y compil|e comman|
|00000060| 64 2c 20 6f 72 20 6e 69 | 6c 20 69 66 20 6e 6f 6e |d, or ni|l if non|
|00000070| 65 20 65 78 69 73 74 73 | 20 6e 6f 77 2e 0a 4e 6f |e exists| now..No|
|00000080| 74 65 20 74 68 61 74 20 | 74 68 65 20 70 72 6f 63 |te that |the proc|
|00000090| 65 73 73 20 6d 61 79 20 | 68 61 76 65 20 62 65 65 |ess may |have bee|
|000000a0| 6e 20 5c 22 64 65 6c 65 | 74 65 64 5c 22 20 61 6e |n \"dele|ted\" an|
|000000b0| 64 20 73 74 69 6c 6c 0a | 62 65 20 74 68 65 20 76 |d still.|be the v|
|000000c0| 61 6c 75 65 20 6f 66 20 | 74 68 69 73 20 76 61 72 |alue of |this var|
|000000d0| 69 61 62 6c 65 2e 22 29 | 0a 0a 28 64 65 66 76 61 |iable.")|..(defva|
|000000e0| 72 20 63 6f 6d 70 69 6c | 61 74 69 6f 6e 2d 65 72 |r compil|ation-er|
|000000f0| 72 6f 72 2d 6c 69 73 74 | 20 6e 69 6c 20 22 5c 0a |ror-list| nil "\.|
|00000100| 4c 69 73 74 20 6f 66 20 | 65 72 72 6f 72 20 6d 65 |List of |error me|
|00000110| 73 73 61 67 65 20 64 65 | 73 63 72 69 70 74 6f 72 |ssage de|scriptor|
|00000120| 73 20 66 6f 72 20 76 69 | 73 69 74 69 6e 67 20 65 |s for vi|siting e|
|00000130| 72 72 69 6e 67 20 66 75 | 6e 63 74 69 6f 6e 73 2e |rring fu|nctions.|
|00000140| 0a 45 61 63 68 20 65 72 | 72 6f 72 20 64 65 73 63 |.Each er|ror desc|
|00000150| 72 69 70 74 6f 72 20 69 | 73 20 61 20 6c 69 73 74 |riptor i|s a list|
|00000160| 20 6f 66 20 6c 65 6e 67 | 74 68 20 74 77 6f 2e 0a | of leng|th two..|
|00000170| 49 74 73 20 63 61 72 20 | 69 73 20 61 20 6d 61 72 |Its car |is a mar|
|00000180| 6b 65 72 20 70 6f 69 6e | 74 69 6e 67 20 74 6f 20 |ker poin|ting to |
|00000190| 61 6e 20 65 72 72 6f 72 | 20 6d 65 73 73 61 67 65 |an error| message|
|000001a0| 2e 0a 49 74 73 20 63 61 | 64 72 20 69 73 20 61 20 |..Its ca|dr is a |
|000001b0| 6d 61 72 6b 65 72 20 70 | 6f 69 6e 74 69 6e 67 20 |marker p|ointing |
|000001c0| 74 6f 20 74 68 65 20 74 | 65 78 74 20 6f 66 20 74 |to the t|ext of t|
|000001d0| 68 65 20 6c 69 6e 65 20 | 74 68 65 20 6d 65 73 73 |he line |the mess|
|000001e0| 61 67 65 20 69 73 20 61 | 62 6f 75 74 2c 0a 20 20 |age is a|bout,. |
|000001f0| 6f 72 20 6e 69 6c 20 69 | 66 20 74 68 61 74 20 69 |or nil i|f that i|
|00000200| 73 20 6e 6f 74 20 69 6e | 74 65 72 65 73 74 69 6e |s not in|terestin|
|00000210| 67 2e 0a 54 68 65 20 76 | 61 6c 75 65 20 6d 61 79 |g..The v|alue may|
|00000220| 20 62 65 20 74 20 69 6e | 73 74 65 61 64 20 6f 66 | be t in|stead of|
|00000230| 20 61 20 6c 69 73 74 3b | 0a 74 68 69 73 20 6d 65 | a list;|.this me|
|00000240| 61 6e 73 20 74 68 61 74 | 20 74 68 65 20 62 75 66 |ans that| the buf|
|00000250| 66 65 72 20 6f 66 20 65 | 72 72 6f 72 20 6d 65 73 |fer of e|rror mes|
|00000260| 73 61 67 65 73 20 73 68 | 6f 75 6c 64 20 62 65 20 |sages sh|ould be |
|00000270| 72 65 70 61 72 73 65 64 | 0a 74 68 65 20 6e 65 78 |reparsed|.the nex|
|00000280| 74 20 74 69 6d 65 20 74 | 68 65 20 6c 69 73 74 20 |t time t|he list |
|00000290| 6f 66 20 65 72 72 6f 72 | 73 20 69 73 20 77 61 6e |of error|s is wan|
|000002a0| 74 65 64 2e 22 29 0a 0a | 28 64 65 66 76 61 72 20 |ted.")..|(defvar |
|000002b0| 63 6f 6d 70 69 6c 61 74 | 69 6f 6e 2d 70 61 72 73 |compilat|ion-pars|
|000002c0| 69 6e 67 2d 65 6e 64 20 | 6e 69 6c 20 22 5c 0a 50 |ing-end |nil "\.P|
|000002d0| 6f 73 69 74 69 6f 6e 20 | 6f 66 20 65 6e 64 20 6f |osition |of end o|
|000002e0| 66 20 62 75 66 66 65 72 | 20 77 68 65 6e 20 6c 61 |f buffer| when la|
|000002f0| 73 74 20 65 72 72 6f 72 | 20 6d 65 73 73 61 67 65 |st error| message|
|00000300| 73 20 70 61 72 73 65 64 | 2e 22 29 0a 0a 28 64 65 |s parsed|.")..(de|
|00000310| 66 76 61 72 20 63 6f 6d | 70 69 6c 61 74 69 6f 6e |fvar com|pilation|
|00000320| 2d 65 72 72 6f 72 2d 6d | 65 73 73 61 67 65 20 6e |-error-m|essage n|
|00000330| 69 6c 20 22 5c 0a 4d 65 | 73 73 61 67 65 20 74 6f |il "\.Me|ssage to|
|00000340| 20 70 72 69 6e 74 20 77 | 68 65 6e 20 6e 6f 20 6d | print w|hen no m|
|00000350| 6f 72 65 20 6d 61 74 63 | 68 65 73 20 66 6f 72 20 |ore matc|hes for |
|00000360| 63 6f 6d 70 69 6c 61 74 | 69 6f 6e 2d 65 72 72 6f |compilat|ion-erro|
|00000370| 72 2d 72 65 67 65 78 70 | 20 61 72 65 20 66 6f 75 |r-regexp| are fou|
|00000380| 6e 64 22 29 0a 0a 28 64 | 65 66 76 61 72 20 63 6f |nd")..(d|efvar co|
|00000390| 6d 70 69 6c 61 74 69 6f | 6e 2d 65 72 72 6f 72 2d |mpilatio|n-error-|
|000003a0| 72 65 67 65 78 70 20 22 | 5c 5c 28 5b 5e 20 3a 0a |regexp "|\\([^ :.|
|000003b0| 5d 2b 5c 5c 28 3a 20 2a | 5c 5c 7c 2c 20 6c 69 6e |]+\\(: *|\\|, lin|
|000003c0| 65 20 5c 5c 7c 28 5c 5c | 29 5b 30 2d 39 5d 2b 5c |e \\|(\\|)[0-9]+\|
|000003d0| 5c 29 5c 5c 7c 5c 5c 28 | 5b 30 2d 39 5d 2b 20 2a |\)\\|\\(|[0-9]+ *|
|000003e0| 6f 66 20 2a 5b 5e 20 0a | 5d 2b 5c 5c 29 22 20 22 |of *[^ .|]+\\)" "|
|000003f0| 52 65 67 75 6c 61 72 20 | 65 78 70 72 65 73 73 69 |Regular |expressi|
|00000400| 6f 6e 20 66 6f 72 20 66 | 69 6c 65 6e 61 6d 65 2f |on for f|ilename/|
|00000410| 6c 69 6e 65 6e 75 6d 62 | 65 72 20 69 6e 20 65 72 |linenumb|er in er|
|00000420| 72 6f 72 20 69 6e 20 63 | 6f 6d 70 69 6c 61 74 69 |ror in c|ompilati|
|00000430| 6f 6e 20 6c 6f 67 2e 22 | 29 0a 0a 28 64 65 66 75 |on log."|)..(defu|
|00000440| 6e 20 63 6f 6d 70 69 6c | 65 20 28 63 6f 6d 6d 61 |n compil|e (comma|
|00000450| 6e 64 29 20 22 5c 0a 43 | 6f 6d 70 69 6c 65 20 74 |nd) "\.C|ompile t|
|00000460| 68 65 20 70 72 6f 67 72 | 61 6d 20 69 6e 63 6c 75 |he progr|am inclu|
|00000470| 64 69 6e 67 20 74 68 65 | 20 63 75 72 72 65 6e 74 |ding the| current|
|00000480| 20 62 75 66 66 65 72 2e | 20 20 44 65 66 61 75 6c | buffer.| Defaul|
|00000490| 74 3a 20 72 75 6e 20 60 | 6d 61 6b 65 27 2e 0a 52 |t: run `|make'..R|
|000004a0| 75 6e 73 20 43 4f 4d 4d | 41 4e 44 2c 20 61 20 73 |uns COMM|AND, a s|
|000004b0| 68 65 6c 6c 20 63 6f 6d | 6d 61 6e 64 2c 20 69 6e |hell com|mand, in|
|000004c0| 20 61 20 73 65 70 61 72 | 61 74 65 20 70 72 6f 63 | a separ|ate proc|
|000004d0| 65 73 73 20 61 73 79 6e | 63 68 72 6f 6e 6f 75 73 |ess asyn|chronous|
|000004e0| 6c 79 0a 77 69 74 68 20 | 6f 75 74 70 75 74 20 67 |ly.with |output g|
|000004f0| 6f 69 6e 67 20 74 6f 20 | 74 68 65 20 62 75 66 66 |oing to |the buff|
|00000500| 65 72 20 2a 63 6f 6d 70 | 69 6c 61 74 69 6f 6e 2a |er *comp|ilation*|
|00000510| 2e 0a 59 6f 75 20 63 61 | 6e 20 74 68 65 6e 20 75 |..You ca|n then u|
|00000520| 73 65 20 74 68 65 20 63 | 6f 6d 6d 61 6e 64 20 5c |se the c|ommand \|
|00000530| 5c 5b 6e 65 78 74 2d 65 | 72 72 6f 72 5d 20 74 6f |\[next-e|rror] to|
|00000540| 20 66 69 6e 64 20 74 68 | 65 20 6e 65 78 74 20 65 | find th|e next e|
|00000550| 72 72 6f 72 20 6d 65 73 | 73 61 67 65 0a 61 6e 64 |rror mes|sage.and|
|00000560| 20 6d 6f 76 65 20 74 6f | 20 74 68 65 20 73 6f 75 | move to| the sou|
|00000570| 72 63 65 20 63 6f 64 65 | 20 74 68 61 74 20 63 61 |rce code| that ca|
|00000580| 75 73 65 64 20 69 74 2e | 22 20 28 69 6e 74 65 72 |used it.|" (inter|
|00000590| 61 63 74 69 76 65 20 28 | 62 79 74 65 2d 63 6f 64 |active (|byte-cod|
|000005a0| 65 20 22 c1 c2 08 5c 22 | 43 87 22 20 5b 63 6f 6d |e "...\"|C." [com|
|000005b0| 70 69 6c 65 2d 63 6f 6d | 6d 61 6e 64 20 72 65 61 |pile-com|mand rea|
|000005c0| 64 2d 73 74 72 69 6e 67 | 20 22 43 6f 6d 70 69 6c |d-string| "Compil|
|000005d0| 65 20 63 6f 6d 6d 61 6e | 64 3a 20 22 5d 20 33 29 |e comman|d: "] 3)|
|000005e0| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c2 88 |) (byte-|code "..|
|000005f0| 09 89 10 88 c3 08 c4 5c | 22 87 22 20 5b 63 6f 6d |.......\|"." [com|
|00000600| 70 69 6c 65 2d 63 6f 6d | 6d 61 6e 64 20 63 6f 6d |pile-com|mand com|
|00000610| 6d 61 6e 64 20 6e 69 6c | 20 63 6f 6d 70 69 6c 65 |mand nil| compile|
|00000620| 31 20 22 4e 6f 20 6d 6f | 72 65 20 65 72 72 6f 72 |1 "No mo|re error|
|00000630| 73 22 5d 20 33 29 29 0a | 0a 28 64 65 66 75 6e 20 |s"] 3)).|.(defun |
|00000640| 67 72 65 70 20 28 63 6f | 6d 6d 61 6e 64 29 20 22 |grep (co|mmand) "|
|00000650| 5c 0a 52 75 6e 20 67 72 | 65 70 2c 20 77 69 74 68 |\.Run gr|ep, with|
|00000660| 20 75 73 65 72 2d 73 70 | 65 63 69 66 69 65 64 20 | user-sp|ecified |
|00000670| 61 72 67 73 2c 20 61 6e | 64 20 63 6f 6c 6c 65 63 |args, an|d collec|
|00000680| 74 20 6f 75 74 70 75 74 | 20 69 6e 20 61 20 62 75 |t output| in a bu|
|00000690| 66 66 65 72 2e 0a 57 68 | 69 6c 65 20 67 72 65 70 |ffer..Wh|ile grep|
|000006a0| 20 72 75 6e 73 20 61 73 | 79 6e 63 68 72 6f 6e 6f | runs as|ynchrono|
|000006b0| 75 73 6c 79 2c 20 79 6f | 75 20 63 61 6e 20 75 73 |usly, yo|u can us|
|000006c0| 65 20 74 68 65 20 5c 5c | 5b 6e 65 78 74 2d 65 72 |e the \\|[next-er|
|000006d0| 72 6f 72 5d 20 63 6f 6d | 6d 61 6e 64 0a 74 6f 20 |ror] com|mand.to |
|000006e0| 66 69 6e 64 20 74 68 65 | 20 74 65 78 74 20 74 68 |find the| text th|
|000006f0| 61 74 20 67 72 65 70 20 | 68 69 74 73 20 72 65 66 |at grep |hits ref|
|00000700| 65 72 20 74 6f 2e 22 20 | 28 69 6e 74 65 72 61 63 |er to." |(interac|
|00000710| 74 69 76 65 20 22 73 52 | 75 6e 20 67 72 65 70 20 |tive "sR|un grep |
|00000720| 28 77 69 74 68 20 61 72 | 67 73 29 3a 20 22 29 20 |(with ar|gs): ") |
|00000730| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c1 88 c2 c3 |(byte-co|de "....|
|00000740| 08 c4 51 c5 c6 23 87 22 | 20 5b 63 6f 6d 6d 61 6e |..Q..#."| [comman|
|00000750| 64 20 6e 69 6c 20 63 6f | 6d 70 69 6c 65 31 20 22 |d nil co|mpile1 "|
|00000760| 67 72 65 70 20 2d 6e 20 | 22 20 22 20 2f 64 65 76 |grep -n |" " /dev|
|00000770| 2f 6e 75 6c 6c 22 20 22 | 4e 6f 20 6d 6f 72 65 20 |/null" "|No more |
|00000780| 67 72 65 70 20 68 69 74 | 73 22 20 22 67 72 65 70 |grep hit|s" "grep|
|00000790| 22 5d 20 34 29 29 0a 0a | 28 64 65 66 75 6e 20 63 |"] 4))..|(defun c|
|000007a0| 6f 6d 70 69 6c 65 31 20 | 28 63 6f 6d 6d 61 6e 64 |ompile1 |(command|
|000007b0| 20 65 72 72 6f 72 2d 6d | 65 73 73 61 67 65 20 26 | error-m|essage &|
|000007c0| 6f 70 74 69 6f 6e 61 6c | 20 6e 61 6d 65 2d 6f 66 |optional| name-of|
|000007d0| 2d 6d 6f 64 65 29 20 28 | 62 79 74 65 2d 63 6f 64 |-mode) (|byte-cod|
|000007e0| 65 20 22 d2 20 88 08 85 | 20 00 d3 08 21 d4 3d 3f |e ". ...| ...!.=?|
|000007f0| 86 13 00 d5 d6 21 83 1d | 00 c1 d7 d8 8f 82 20 00 |.....!..|...... .|
|00000800| d9 da 21 88 c1 89 10 88 | db 20 88 c3 89 12 88 0d |..!.....|. ......|
|00000810| 89 14 88 dc dd de 0e 06 | df e0 0e 07 50 25 89 10 |........|....P%..|
|00000820| 88 de 90 e1 e2 21 88 e1 | 0e 08 21 88 e3 20 88 e1 |.....!..|..!.. ..|
|00000830| 0e 07 21 88 e3 20 91 88 | 0e 0a 1e 09 8a de 71 88 |..!.. ..|......q.|
|00000840| e4 ca 21 88 0e 09 89 16 | 0a 29 29 88 e5 08 e6 5c |..!.....|.))....\|
|00000850| 22 88 0e 08 1e 0b e7 08 | 21 1e 0c e8 0e 0c 21 1e |".......|!.....!.|
|00000860| 0d 0e 0c 70 3d 85 86 00 | 64 62 88 8a 0e 0c 71 88 |...p=...|db....q.|
|00000870| e9 0e 0c 21 88 8a 0e 0c | 71 88 65 29 1e 0e ea 0e |...!....|q.e)....|
|00000880| 0d 0e 0e 5c 22 88 0e 0d | eb 20 3d 86 af 00 ec 0e |...\"...|. =.....|
|00000890| 0d 0e 0e 5c 22 29 88 0e | 0b 89 16 08 88 ed 20 88 |...\")..|...... .|
|000008a0| 0e 10 86 c0 00 ee 89 16 | 0f 88 ef 89 16 11 29 2b |........|......)+|
|000008b0| 87 22 20 5b 63 6f 6d 70 | 69 6c 61 74 69 6f 6e 2d |." [comp|ilation-|
|000008c0| 70 72 6f 63 65 73 73 20 | 6e 69 6c 20 63 6f 6d 70 |process |nil comp|
|000008d0| 69 6c 61 74 69 6f 6e 2d | 65 72 72 6f 72 2d 6c 69 |ilation-|error-li|
|000008e0| 73 74 20 74 20 63 6f 6d | 70 69 6c 61 74 69 6f 6e |st t com|pilation|
|000008f0| 2d 65 72 72 6f 72 2d 6d | 65 73 73 61 67 65 20 65 |-error-m|essage e|
|00000900| 72 72 6f 72 2d 6d 65 73 | 73 61 67 65 20 73 68 65 |rror-mes|sage she|
|00000910| 6c 6c 2d 66 69 6c 65 2d | 6e 61 6d 65 20 63 6f 6d |ll-file-|name com|
|00000920| 6d 61 6e 64 20 64 65 66 | 61 75 6c 74 2d 64 69 72 |mand def|ault-dir|
|00000930| 65 63 74 6f 72 79 20 72 | 65 67 65 78 70 20 63 6f |ectory r|egexp co|
|00000940| 6d 70 69 6c 61 74 69 6f | 6e 2d 65 72 72 6f 72 2d |mpilatio|n-error-|
|00000950| 72 65 67 65 78 70 20 74 | 68 69 73 64 69 72 20 6f |regexp t|hisdir o|
|00000960| 75 74 62 75 66 20 6f 75 | 74 77 69 6e 20 73 74 61 |utbuf ou|twin sta|
|00000970| 72 74 20 6d 6f 64 65 2d | 6e 61 6d 65 20 6e 61 6d |rt mode-|name nam|
|00000980| 65 2d 6f 66 2d 6d 6f 64 | 65 20 6d 6f 64 65 2d 6c |e-of-mod|e mode-l|
|00000990| 69 6e 65 2d 70 72 6f 63 | 65 73 73 20 73 61 76 65 |ine-proc|ess save|
|000009a0| 2d 73 6f 6d 65 2d 62 75 | 66 66 65 72 73 20 70 72 |-some-bu|ffers pr|
|000009b0| 6f 63 65 73 73 2d 73 74 | 61 74 75 73 20 72 75 6e |ocess-st|atus run|
|000009c0| 20 79 65 73 2d 6f 72 2d | 6e 6f 2d 70 20 22 41 20 | yes-or-|no-p "A |
|000009d0| 63 6f 6d 70 69 6c 61 74 | 69 6f 6e 20 70 72 6f 63 |compilat|ion proc|
|000009e0| 65 73 73 20 69 73 20 72 | 75 6e 6e 69 6e 67 3b 20 |ess is r|unning; |
|000009f0| 6b 69 6c 6c 20 69 74 3f | 20 22 20 28 62 79 74 65 |kill it?| " (byte|
|00000a00| 2d 63 6f 64 65 20 22 09 | 18 c2 08 21 88 c3 c4 21 |-code ".|...!...!|
|00000a10| 88 c5 08 21 29 87 22 20 | 5b 63 6f 6d 70 2d 70 72 |...!)." |[comp-pr|
|00000a20| 6f 63 20 63 6f 6d 70 69 | 6c 61 74 69 6f 6e 2d 70 |oc compi|lation-p|
|00000a30| 72 6f 63 65 73 73 20 69 | 6e 74 65 72 72 75 70 74 |rocess i|nterrupt|
|00000a40| 2d 70 72 6f 63 65 73 73 | 20 73 69 74 2d 66 6f 72 |-process| sit-for|
|00000a50| 20 31 20 64 65 6c 65 74 | 65 2d 70 72 6f 63 65 73 | 1 delet|e-proces|
|00000a60| 73 5d 20 34 29 20 28 28 | 65 72 72 6f 72 20 28 62 |s] 4) ((|error (b|
|00000a70| 79 74 65 2d 63 6f 64 65 | 20 22 c0 87 22 20 5b 6e |yte-code| ".." [n|
|00000a80| 69 6c 5d 20 31 29 29 29 | 20 65 72 72 6f 72 20 22 |il] 1)))| error "|
|00000a90| 43 61 6e 6e 6f 74 20 68 | 61 76 65 20 74 77 6f 20 |Cannot h|ave two |
|00000aa0| 63 6f 6d 70 69 6c 61 74 | 69 6f 6e 20 70 72 6f 63 |compilat|ion proc|
|00000ab0| 65 73 73 65 73 22 20 63 | 6f 6d 70 69 6c 61 74 69 |esses" c|ompilati|
|00000ac0| 6f 6e 2d 66 6f 72 67 65 | 74 2d 65 72 72 6f 72 73 |on-forge|t-errors|
|00000ad0| 20 73 74 61 72 74 2d 70 | 72 6f 63 65 73 73 20 22 | start-p|rocess "|
|00000ae0| 63 6f 6d 70 69 6c 61 74 | 69 6f 6e 22 20 22 2a 63 |compilat|ion" "*c|
|00000af0| 6f 6d 70 69 6c 61 74 69 | 6f 6e 2a 22 20 22 2d 63 |ompilati|on*" "-c|
|00000b00| 22 20 22 65 78 65 63 20 | 22 20 70 72 69 6e 63 20 |" "exec |" princ |
|00000b10| 22 63 64 20 22 20 74 65 | 72 70 72 69 20 6d 61 6b |"cd " te|rpri mak|
|00000b20| 65 2d 6c 6f 63 61 6c 2d | 76 61 72 69 61 62 6c 65 |e-local-|variable|
|00000b30| 20 73 65 74 2d 70 72 6f | 63 65 73 73 2d 73 65 6e | set-pro|cess-sen|
|00000b40| 74 69 6e 65 6c 20 63 6f | 6d 70 69 6c 61 74 69 6f |tinel co|mpilatio|
|00000b50| 6e 2d 73 65 6e 74 69 6e | 65 6c 20 70 72 6f 63 65 |n-sentin|el proce|
|00000b60| 73 73 2d 62 75 66 66 65 | 72 20 67 65 74 2d 62 75 |ss-buffe|r get-bu|
|00000b70| 66 66 65 72 2d 77 69 6e | 64 6f 77 20 62 75 66 66 |ffer-win|dow buff|
|00000b80| 65 72 2d 66 6c 75 73 68 | 2d 75 6e 64 6f 20 73 65 |er-flush|-undo se|
|00000b90| 74 2d 77 69 6e 64 6f 77 | 2d 73 74 61 72 74 20 73 |t-window|-start s|
|00000ba0| 65 6c 65 63 74 65 64 2d | 77 69 6e 64 6f 77 20 73 |elected-|window s|
|00000bb0| 65 74 2d 77 69 6e 64 6f | 77 2d 70 6f 69 6e 74 20 |et-windo|w-point |
|00000bc0| 66 75 6e 64 61 6d 65 6e | 74 61 6c 2d 6d 6f 64 65 |fundamen|tal-mode|
|00000bd0| 20 22 43 6f 6d 70 69 6c | 61 74 69 6f 6e 22 20 28 | "Compil|ation" (|
|00000be0| 22 3a 20 25 73 22 29 5d | 20 32 32 29 29 0a 0a 28 |": %s")]| 22))..(|
|00000bf0| 64 65 66 75 6e 20 63 6f | 6d 70 69 6c 61 74 69 6f |defun co|mpilatio|
|00000c00| 6e 2d 73 65 6e 74 69 6e | 65 6c 20 28 70 72 6f 63 |n-sentin|el (proc|
|00000c10| 20 6d 73 67 29 20 28 62 | 79 74 65 2d 63 6f 64 65 | msg) (b|yte-code|
|00000c20| 20 22 c9 ca 08 21 21 3f | 83 10 00 cb 08 c1 5c 22 | "...!!?|......\"|
|00000c30| 82 67 00 cc 08 21 cd 3e | 85 67 00 70 1a c1 1b c1 |.g...!.>|.g.p....|
|00000c40| 1c ce 8e ca 08 21 71 88 | 64 13 60 89 14 88 64 62 |.....!q.|d.`...db|
|00000c50| 88 cf d0 0d d1 0e 06 24 | 88 d2 d3 21 88 cf d4 d5 |.......$|...!....|
|00000c60| 20 d6 d7 4f 5c 22 88 d2 | d8 21 88 d9 da cc 08 21 | ..O\"..|.!.....!|
|00000c70| 21 50 89 16 07 88 db 08 | 21 29 88 0c 85 5e 00 0c |!P......|!)...^..|
|00000c80| 0b 57 85 63 00 0c 62 88 | 0a 71 2b 87 22 20 5b 70 |.W.c..b.|.q+." [p|
|00000c90| 72 6f 63 20 6e 69 6c 20 | 6f 62 75 66 20 6f 6d 61 |roc nil |obuf oma|
|00000ca0| 78 20 6f 70 6f 69 6e 74 | 20 6d 6f 64 65 2d 6e 61 |x opoint| mode-na|
|00000cb0| 6d 65 20 6d 73 67 20 6d | 6f 64 65 2d 6c 69 6e 65 |me msg m|ode-line|
|00000cc0| 2d 70 72 6f 63 65 73 73 | 20 63 6f 6d 70 69 6c 61 |-process| compila|
|00000cd0| 74 69 6f 6e 2d 70 72 6f | 63 65 73 73 20 62 75 66 |tion-pro|cess buf|
|00000ce0| 66 65 72 2d 6e 61 6d 65 | 20 70 72 6f 63 65 73 73 |fer-name| process|
|00000cf0| 2d 62 75 66 66 65 72 20 | 73 65 74 2d 70 72 6f 63 |-buffer |set-proc|
|00000d00| 65 73 73 2d 62 75 66 66 | 65 72 20 70 72 6f 63 65 |ess-buff|er proce|
|00000d10| 73 73 2d 73 74 61 74 75 | 73 20 28 73 69 67 6e 61 |ss-statu|s (signa|
|00000d20| 6c 20 65 78 69 74 29 20 | 28 28 62 79 74 65 2d 63 |l exit) |((byte-c|
|00000d30| 6f 64 65 20 22 c1 89 10 | 88 c2 c3 20 21 87 22 20 |ode "...|... !." |
|00000d40| 5b 63 6f 6d 70 69 6c 61 | 74 69 6f 6e 2d 70 72 6f |[compila|tion-pro|
|00000d50| 63 65 73 73 20 6e 69 6c | 20 73 65 74 2d 62 75 66 |cess nil| set-buf|
|00000d60| 66 65 72 2d 6d 6f 64 69 | 66 69 65 64 2d 70 20 62 |fer-modi|fied-p b|
|00000d70| 75 66 66 65 72 2d 6d 6f | 64 69 66 69 65 64 2d 70 |uffer-mo|dified-p|
|00000d80| 5d 20 33 29 29 20 69 6e | 73 65 72 74 20 31 30 20 |] 3)) in|sert 10 |
|00000d90| 22 20 22 20 66 6f 72 77 | 61 72 64 2d 63 68 61 72 |" " forw|ard-char|
|00000da0| 20 2d 31 20 22 20 61 74 | 20 22 20 63 75 72 72 65 | -1 " at| " curre|
|00000db0| 6e 74 2d 74 69 6d 65 2d | 73 74 72 69 6e 67 20 30 |nt-time-|string 0|
|00000dc0| 20 2d 35 20 31 20 22 3a | 20 22 20 73 79 6d 62 6f | -5 1 ":| " symbo|
|00000dd0| 6c 2d 6e 61 6d 65 20 64 | 65 6c 65 74 65 2d 70 72 |l-name d|elete-pr|
|00000de0| 6f 63 65 73 73 5d 20 31 | 35 29 29 0a 0a 28 64 65 |ocess] 1|5))..(de|
|00000df0| 66 75 6e 20 6b 69 6c 6c | 2d 63 6f 6d 70 69 6c 61 |fun kill|-compila|
|00000e00| 74 69 6f 6e 20 6e 69 6c | 20 22 5c 0a 4b 69 6c 6c |tion nil| "\.Kill|
|00000e10| 20 74 68 65 20 70 72 6f | 63 65 73 73 20 6d 61 64 | the pro|cess mad|
|00000e20| 65 20 62 79 20 74 68 65 | 20 5c 5c 5b 63 6f 6d 70 |e by the| \\[comp|
|00000e30| 69 6c 65 5d 20 63 6f 6d | 6d 61 6e 64 2e 22 20 28 |ile] com|mand." (|
|00000e40| 69 6e 74 65 72 61 63 74 | 69 76 65 29 20 28 62 79 |interact|ive) (by|
|00000e50| 74 65 2d 63 6f 64 65 20 | 22 c1 88 08 85 09 00 c2 |te-code |".......|
|00000e60| 08 21 87 22 20 5b 63 6f | 6d 70 69 6c 61 74 69 6f |.!." [co|mpilatio|
|00000e70| 6e 2d 70 72 6f 63 65 73 | 73 20 6e 69 6c 20 69 6e |n-proces|s nil in|
|00000e80| 74 65 72 72 75 70 74 2d | 70 72 6f 63 65 73 73 5d |terrupt-|process]|
|00000e90| 20 32 29 29 0a 0a 28 64 | 65 66 75 6e 20 6b 69 6c | 2))..(d|efun kil|
|00000ea0| 6c 2d 67 72 65 70 20 6e | 69 6c 20 22 5c 0a 4b 69 |l-grep n|il "\.Ki|
|00000eb0| 6c 6c 20 74 68 65 20 70 | 72 6f 63 65 73 73 20 6d |ll the p|rocess m|
|00000ec0| 61 64 65 20 62 79 20 74 | 68 65 20 5c 5c 5b 67 72 |ade by t|he \\[gr|
|00000ed0| 65 70 5d 20 63 6f 6d 6d | 61 6e 64 2e 22 20 28 69 |ep] comm|and." (i|
|00000ee0| 6e 74 65 72 61 63 74 69 | 76 65 29 20 28 62 79 74 |nteracti|ve) (byt|
|00000ef0| 65 2d 63 6f 64 65 20 22 | c1 88 08 85 09 00 c2 08 |e-code "|........|
|00000f00| 21 87 22 20 5b 63 6f 6d | 70 69 6c 61 74 69 6f 6e |!." [com|pilation|
|00000f10| 2d 70 72 6f 63 65 73 73 | 20 6e 69 6c 20 69 6e 74 |-process| nil int|
|00000f20| 65 72 72 75 70 74 2d 70 | 72 6f 63 65 73 73 5d 20 |errupt-p|rocess] |
|00000f30| 32 29 29 0a 0a 28 64 65 | 66 75 6e 20 6e 65 78 74 |2))..(de|fun next|
|00000f40| 2d 65 72 72 6f 72 20 28 | 26 6f 70 74 69 6f 6e 61 |-error (|&optiona|
|00000f50| 6c 20 61 72 67 70 29 20 | 22 5c 0a 56 69 73 69 74 |l argp) |"\.Visit|
|00000f60| 20 6e 65 78 74 20 63 6f | 6d 70 69 6c 61 74 69 6f | next co|mpilatio|
|00000f70| 6e 20 65 72 72 6f 72 20 | 6d 65 73 73 61 67 65 20 |n error |message |
|00000f80| 61 6e 64 20 63 6f 72 72 | 65 73 70 6f 6e 64 69 6e |and corr|espondin|
|00000f90| 67 20 73 6f 75 72 63 65 | 20 63 6f 64 65 2e 0a 54 |g source| code..T|
|00000fa0| 68 69 73 20 6f 70 65 72 | 61 74 65 73 20 6f 6e 20 |his oper|ates on |
|00000fb0| 74 68 65 20 6f 75 74 70 | 75 74 20 66 72 6f 6d 20 |the outp|ut from |
|00000fc0| 74 68 65 20 5c 5c 5b 63 | 6f 6d 70 69 6c 65 5d 20 |the \\[c|ompile] |
|00000fd0| 63 6f 6d 6d 61 6e 64 2e | 0a 49 66 20 61 6c 6c 20 |command.|.If all |
|00000fe0| 70 72 65 70 61 72 73 65 | 64 20 65 72 72 6f 72 20 |preparse|d error |
|00000ff0| 6d 65 73 73 61 67 65 73 | 20 68 61 76 65 20 62 65 |messages| have be|
|00001000| 65 6e 20 70 72 6f 63 65 | 73 73 65 64 2c 0a 74 68 |en proce|ssed,.th|
|00001010| 65 20 65 72 72 6f 72 20 | 6d 65 73 73 61 67 65 20 |e error |message |
|00001020| 62 75 66 66 65 72 20 69 | 73 20 63 68 65 63 6b 65 |buffer i|s checke|
|00001030| 64 20 66 6f 72 20 6e 65 | 77 20 6f 6e 65 73 2e 0a |d for ne|w ones..|
|00001040| 41 20 6e 6f 6e 2d 6e 69 | 6c 20 61 72 67 75 6d 65 |A non-ni|l argume|
|00001050| 6e 74 20 28 70 72 65 66 | 69 78 20 61 72 67 2c 20 |nt (pref|ix arg, |
|00001060| 69 66 20 69 6e 74 65 72 | 61 63 74 69 76 65 29 0a |if inter|active).|
|00001070| 6d 65 61 6e 73 20 72 65 | 70 61 72 73 65 20 74 68 |means re|parse th|
|00001080| 65 20 65 72 72 6f 72 20 | 6d 65 73 73 61 67 65 20 |e error |message |
|00001090| 62 75 66 66 65 72 20 61 | 6e 64 20 73 74 61 72 74 |buffer a|nd start|
|000010a0| 20 61 74 20 74 68 65 20 | 66 69 72 73 74 20 65 72 | at the |first er|
|000010b0| 72 6f 72 2e 22 20 28 69 | 6e 74 65 72 61 63 74 69 |ror." (i|nteracti|
|000010c0| 76 65 20 22 50 22 29 20 | 28 62 79 74 65 2d 63 6f |ve "P") |(byte-co|
|000010d0| 64 65 20 22 c4 88 08 c1 | 3d 86 09 00 0a 85 12 00 |de "....|=.......|
|000010e0| ca 20 88 cb 89 13 88 08 | 83 1b 00 c4 82 27 00 8a |. ......|.....'..|
|000010f0| cc cd 21 88 ce c4 21 88 | cf 20 29 88 08 40 1d 0d |..!...!.|. )..@..|
|00001100| 3f 85 48 00 d0 0e 06 0e | 07 85 3e 00 d1 0e 07 21 |?.H.....|..>....!|
|00001110| d2 3d 83 45 00 d3 82 46 | 00 d4 50 21 88 08 41 89 |.=.E...F|..P!..A.|
|00001120| 10 88 0d 41 40 3f 83 59 | 00 c4 82 6c 00 cc d5 0d |...A@?.Y|...l....|
|00001130| 41 40 21 21 88 0d 41 40 | 62 88 d6 0d 41 40 c4 5c |A@!!..A@|b...A@.\|
|00001140| 22 88 c1 1e 08 d7 d5 0d | 40 21 21 1e 09 d8 0e 09 |".......|@!!.....|
|00001150| 0d 40 5c 22 88 d9 0e 09 | 0d 40 5c 22 2a 88 d6 0d |.@\"....|.@\"*...|
|00001160| 40 c4 5c 22 29 87 22 20 | 5b 63 6f 6d 70 69 6c 61 |@.\")." |[compila|
|00001170| 74 69 6f 6e 2d 65 72 72 | 6f 72 2d 6c 69 73 74 20 |tion-err|or-list |
|00001180| 74 20 61 72 67 70 20 63 | 6f 6d 70 69 6c 61 74 69 |t argp c|ompilati|
|00001190| 6f 6e 2d 70 61 72 73 69 | 6e 67 2d 65 6e 64 20 6e |on-parsi|ng-end n|
|000011a0| 69 6c 20 6e 65 78 74 2d | 65 72 72 6f 72 20 63 6f |il next-|error co|
|000011b0| 6d 70 69 6c 61 74 69 6f | 6e 2d 65 72 72 6f 72 2d |mpilatio|n-error-|
|000011c0| 6d 65 73 73 61 67 65 20 | 63 6f 6d 70 69 6c 61 74 |message |compilat|
|000011d0| 69 6f 6e 2d 70 72 6f 63 | 65 73 73 20 70 6f 70 2d |ion-proc|ess pop-|
|000011e0| 75 70 2d 77 69 6e 64 6f | 77 73 20 77 20 63 6f 6d |up-windo|ws w com|
|000011f0| 70 69 6c 61 74 69 6f 6e | 2d 66 6f 72 67 65 74 2d |pilation|-forget-|
|00001200| 65 72 72 6f 72 73 20 31 | 20 73 77 69 74 63 68 2d |errors 1| switch-|
|00001210| 74 6f 2d 62 75 66 66 65 | 72 20 22 2a 63 6f 6d 70 |to-buffe|r "*comp|
|00001220| 69 6c 61 74 69 6f 6e 2a | 22 20 73 65 74 2d 62 75 |ilation*|" set-bu|
|00001230| 66 66 65 72 2d 6d 6f 64 | 69 66 69 65 64 2d 70 20 |ffer-mod|ified-p |
|00001240| 63 6f 6d 70 69 6c 61 74 | 69 6f 6e 2d 70 61 72 73 |compilat|ion-pars|
|00001250| 65 2d 65 72 72 6f 72 73 | 20 65 72 72 6f 72 20 70 |e-errors| error p|
|00001260| 72 6f 63 65 73 73 2d 73 | 74 61 74 75 73 20 72 75 |rocess-s|tatus ru|
|00001270| 6e 20 22 20 79 65 74 22 | 20 22 22 20 6d 61 72 6b |n " yet"| "" mark|
|00001280| 65 72 2d 62 75 66 66 65 | 72 20 73 65 74 2d 6d 61 |er-buffe|r set-ma|
|00001290| 72 6b 65 72 20 64 69 73 | 70 6c 61 79 2d 62 75 66 |rker dis|play-buf|
|000012a0| 66 65 72 20 73 65 74 2d | 77 69 6e 64 6f 77 2d 70 |fer set-|window-p|
|000012b0| 6f 69 6e 74 20 73 65 74 | 2d 77 69 6e 64 6f 77 2d |oint set|-window-|
|000012c0| 73 74 61 72 74 5d 20 31 | 36 29 29 0a 0a 28 64 65 |start] 1|6))..(de|
|000012d0| 66 75 6e 20 63 6f 6d 70 | 69 6c 61 74 69 6f 6e 2d |fun comp|ilation-|
|000012e0| 66 6f 72 67 65 74 2d 65 | 72 72 6f 72 73 20 6e 69 |forget-e|rrors ni|
|000012f0| 6c 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 08 c1 |l (byte-|code "..|
|00001300| 3d 85 09 00 c2 89 10 88 | 08 85 2d 00 08 40 1b c4 |=.......|..-..@..|
|00001310| 0b 40 c2 5c 22 88 0b 41 | 40 85 23 00 c4 0b 41 40 |.@.\"..A|@.#...A@|
|00001320| c2 5c 22 29 88 08 41 89 | 10 88 82 0a 00 87 22 20 |.\")..A.|......" |
|00001330| 5b 63 6f 6d 70 69 6c 61 | 74 69 6f 6e 2d 65 72 72 |[compila|tion-err|
|00001340| 6f 72 2d 6c 69 73 74 20 | 74 20 6e 69 6c 20 6e 65 |or-list |t nil ne|
|00001350| 78 74 2d 65 72 72 6f 72 | 20 73 65 74 2d 6d 61 72 |xt-error| set-mar|
|00001360| 6b 65 72 5d 20 35 29 29 | 0a 0a 28 64 65 66 75 6e |ker] 5))|..(defun|
|00001370| 20 63 6f 6d 70 69 6c 61 | 74 69 6f 6e 2d 70 61 72 | compila|tion-par|
|00001380| 73 65 2d 65 72 72 6f 72 | 73 20 6e 69 6c 20 22 5c |se-error|s nil "\|
|00001390| 0a 50 61 72 73 65 20 74 | 68 65 20 63 75 72 72 65 |.Parse t|he curre|
|000013a0| 6e 74 20 62 75 66 66 65 | 72 20 61 73 20 65 72 72 |nt buffe|r as err|
|000013b0| 6f 72 20 6d 65 73 73 61 | 67 65 73 2e 0a 54 68 69 |or messa|ges..Thi|
|000013c0| 73 20 6d 61 6b 65 73 20 | 61 20 6c 69 73 74 20 6f |s makes |a list o|
|000013d0| 66 20 65 72 72 6f 72 20 | 64 65 73 63 72 69 70 74 |f error |descript|
|000013e0| 6f 72 73 2c 20 63 6f 6d | 70 69 6c 61 74 69 6f 6e |ors, com|pilation|
|000013f0| 2d 65 72 72 6f 72 2d 6c | 69 73 74 2e 0a 46 6f 72 |-error-l|ist..For|
|00001400| 20 65 61 63 68 20 73 6f | 75 72 63 65 2d 66 69 6c | each so|urce-fil|
|00001410| 65 2c 20 6c 69 6e 65 2d | 6e 75 6d 62 65 72 20 70 |e, line-|number p|
|00001420| 61 69 72 20 69 6e 20 74 | 68 65 20 62 75 66 66 65 |air in t|he buffe|
|00001430| 72 2c 0a 74 68 65 20 73 | 6f 75 72 63 65 20 66 69 |r,.the s|ource fi|
|00001440| 6c 65 20 69 73 20 72 65 | 61 64 20 69 6e 2c 20 61 |le is re|ad in, a|
|00001450| 6e 64 20 74 68 65 20 74 | 65 78 74 20 6c 6f 63 61 |nd the t|ext loca|
|00001460| 74 69 6f 6e 20 69 73 20 | 73 61 76 65 64 20 69 6e |tion is |saved in|
|00001470| 20 63 6f 6d 70 69 6c 61 | 74 69 6f 6e 2d 65 72 72 | compila|tion-err|
|00001480| 6f 72 2d 6c 69 73 74 2e | 0a 54 68 65 20 66 75 6e |or-list.|.The fun|
|00001490| 63 74 69 6f 6e 20 6e 65 | 78 74 2d 65 72 72 6f 72 |ction ne|xt-error|
|000014a0| 2c 20 61 73 73 69 67 6e | 65 64 20 74 6f 20 5c 5c |, assign|ed to \\|
|000014b0| 5b 6e 65 78 74 2d 65 72 | 72 6f 72 5d 2c 20 74 61 |[next-er|ror], ta|
|000014c0| 6b 65 73 20 74 68 65 20 | 6e 65 78 74 20 65 72 72 |kes the |next err|
|000014d0| 6f 72 20 6f 66 66 20 74 | 68 65 20 6c 69 73 74 0a |or off t|he list.|
|000014e0| 61 6e 64 20 76 69 73 69 | 74 73 20 69 74 73 20 6c |and visi|ts its l|
|000014f0| 6f 63 61 74 69 6f 6e 2e | 22 20 28 62 79 74 65 2d |ocation.|" (byte-|
|00001500| 63 6f 64 65 20 22 c1 89 | 10 88 cc cd 21 88 c1 c1 |code "..|....!...|
|00001510| c1 1c 1b 1a 0d 62 88 6f | 85 18 00 ce cf 21 88 d0 |.....b.o|.....!..|
|00001520| 0e 06 c1 c7 23 85 02 01 | c1 c1 c1 c1 1e 0b 1e 0a |....#...|........|
|00001530| 1e 09 1e 08 8c d1 d2 d3 | 21 d4 d3 21 5c 22 88 64 |........|!..!\".d|
|00001540| 62 88 d5 d6 21 88 68 d7 | 55 85 65 00 d1 65 d8 20 |b...!.h.|U.e..e. |
|00001550| 54 5c 22 88 d9 20 88 da | 0e 06 21 88 d5 db 21 88 |T\".. ..|..!...!.|
|00001560| d1 60 d4 d3 21 5c 22 88 | 64 62 88 d5 d6 21 88 dc |.`..!\".|db...!..|
|00001570| d6 21 83 78 00 dd 70 21 | 89 16 08 88 65 62 82 88 |.!.x..p!|....eb..|
|00001580| 00 65 62 88 dd 70 21 89 | 16 08 88 64 62 88 d5 db |.eb..p!.|...db...|
|00001590| 21 88 de 20 89 16 09 29 | 88 df 0e 09 0b 5c 22 85 |!.. ...)|.....\".|
|000015a0| 9c 00 0e 08 0c 55 83 a3 | 00 c1 82 f9 00 e0 e1 21 |.....U..|.......!|
|000015b0| 88 e2 20 89 16 0a 88 df | 0e 09 0b 5c 22 3f 85 c7 |.. .....|...\"?..|
|000015c0| 00 e3 0e 09 89 13 21 85 | c3 00 e4 0e 09 21 12 d3 |......!.|.....!..|
|000015d0| 89 14 88 0a 85 f9 00 8a | 0a 71 88 e5 0c 21 85 dc |........|.q...!..|
|000015e0| 00 e1 62 88 e1 89 14 88 | ce 0e 08 0c 5a 21 88 0e |..b.....|....Z!..|
|000015f0| 08 89 14 88 e2 20 89 16 | 0b 88 0e 0a 0e 0b 44 08 |..... ..|......D.|
|00001600| 42 89 10 29 88 ce e1 21 | 2c 88 82 19 00 88 64 89 |B..)...!|,.....d.|
|00001610| 15 2b 88 cc e6 21 88 e7 | 08 21 89 10 87 22 20 5b |.+...!..|.!..." [|
|00001620| 63 6f 6d 70 69 6c 61 74 | 69 6f 6e 2d 65 72 72 6f |compilat|ion-erro|
|00001630| 72 2d 6c 69 73 74 20 6e | 69 6c 20 74 65 78 74 2d |r-list n|il text-|
|00001640| 62 75 66 66 65 72 20 6c | 61 73 74 2d 66 69 6c 65 |buffer l|ast-file|
|00001650| 6e 61 6d 65 20 6c 61 73 | 74 2d 6c 69 6e 65 6e 75 |name las|t-linenu|
|00001660| 6d 20 63 6f 6d 70 69 6c | 61 74 69 6f 6e 2d 70 61 |m compil|ation-pa|
|00001670| 72 73 69 6e 67 2d 65 6e | 64 20 63 6f 6d 70 69 6c |rsing-en|d compil|
|00001680| 61 74 69 6f 6e 2d 65 72 | 72 6f 72 2d 72 65 67 65 |ation-er|ror-rege|
|00001690| 78 70 20 74 20 6c 69 6e | 65 6e 75 6d 20 66 69 6c |xp t lin|enum fil|
|000016a0| 65 6e 61 6d 65 20 65 72 | 72 6f 72 2d 6d 61 72 6b |ename er|ror-mark|
|000016b0| 65 72 20 74 65 78 74 2d | 6d 61 72 6b 65 72 20 6d |er text-|marker m|
|000016c0| 65 73 73 61 67 65 20 22 | 50 61 72 73 69 6e 67 20 |essage "|Parsing |
|000016d0| 65 72 72 6f 72 20 6d 65 | 73 73 61 67 65 73 2e 2e |error me|ssages..|
|000016e0| 2e 22 20 66 6f 72 77 61 | 72 64 2d 6c 69 6e 65 20 |." forwa|rd-line |
|000016f0| 32 20 72 65 2d 73 65 61 | 72 63 68 2d 66 6f 72 77 |2 re-sea|rch-forw|
|00001700| 61 72 64 20 6e 61 72 72 | 6f 77 2d 74 6f 2d 72 65 |ard narr|ow-to-re|
|00001710| 67 69 6f 6e 20 6d 61 74 | 63 68 2d 62 65 67 69 6e |gion mat|ch-begin|
|00001720| 6e 69 6e 67 20 30 20 6d | 61 74 63 68 2d 65 6e 64 |ning 0 m|atch-end|
|00001730| 20 73 6b 69 70 2d 63 68 | 61 72 73 2d 62 61 63 6b | skip-ch|ars-back|
|00001740| 77 61 72 64 20 22 5b 30 | 2d 39 5d 22 20 34 30 20 |ward "[0|-9]" 40 |
|00001750| 62 75 66 66 65 72 2d 73 | 69 7a 65 20 65 6e 64 2d |buffer-s|ize end-|
|00001760| 6f 66 2d 6c 69 6e 65 20 | 72 65 2d 73 65 61 72 63 |of-line |re-searc|
|00001770| 68 2d 62 61 63 6b 77 61 | 72 64 20 22 5e 20 09 0a |h-backwa|rd "^ ..|
|00001780| 22 20 6c 6f 6f 6b 69 6e | 67 2d 61 74 20 72 65 61 |" lookin|g-at rea|
|00001790| 64 20 63 6f 6d 70 69 6c | 61 74 69 6f 6e 2d 67 72 |d compil|ation-gr|
|000017a0| 61 62 2d 66 69 6c 65 6e | 61 6d 65 20 65 71 75 61 |ab-filen|ame equa|
|000017b0| 6c 20 62 65 67 69 6e 6e | 69 6e 67 2d 6f 66 2d 6c |l beginn|ing-of-l|
|000017c0| 69 6e 65 20 31 20 70 6f | 69 6e 74 2d 6d 61 72 6b |ine 1 po|int-mark|
|000017d0| 65 72 20 66 69 6c 65 2d | 65 78 69 73 74 73 2d 70 |er file-|exists-p|
|000017e0| 20 66 69 6e 64 2d 66 69 | 6c 65 2d 6e 6f 73 65 6c | find-fi|le-nosel|
|000017f0| 65 63 74 20 7a 65 72 6f | 70 20 22 50 61 72 73 69 |ect zero|p "Parsi|
|00001800| 6e 67 20 65 72 72 6f 72 | 20 6d 65 73 73 61 67 65 |ng error| message|
|00001810| 73 2e 2e 2e 64 6f 6e 65 | 22 20 6e 72 65 76 65 72 |s...done|" nrever|
|00001820| 73 65 5d 20 33 34 29 29 | 0a 0a 28 64 65 66 75 6e |se] 34))|..(defun|
|00001830| 20 63 6f 6d 70 69 6c 61 | 74 69 6f 6e 2d 67 72 61 | compila|tion-gra|
|00001840| 62 2d 66 69 6c 65 6e 61 | 6d 65 20 6e 69 6c 20 22 |b-filena|me nil "|
|00001850| 5c 0a 52 65 74 75 72 6e | 20 61 20 73 74 72 69 6e |\.Return| a strin|
|00001860| 67 20 77 68 69 63 68 20 | 69 73 20 61 20 66 69 6c |g which |is a fil|
|00001870| 65 6e 61 6d 65 2c 20 73 | 74 61 72 74 69 6e 67 20 |ename, s|tarting |
|00001880| 61 74 20 70 6f 69 6e 74 | 2e 0a 49 67 6e 6f 72 65 |at point|..Ignore|
|00001890| 20 71 75 6f 74 65 73 20 | 61 6e 64 20 70 61 72 65 | quotes |and pare|
|000018a0| 6e 74 68 65 73 65 73 20 | 61 72 6f 75 6e 64 20 69 |ntheses |around i|
|000018b0| 74 2c 20 61 73 20 77 65 | 6c 6c 20 61 73 20 74 72 |t, as we|ll as tr|
|000018c0| 61 69 6c 69 6e 67 20 63 | 6f 6c 6f 6e 73 2e 22 20 |ailing c|olons." |
|000018d0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 67 c0 3d 83 |(byte-co|de "g.=.|
|000018e0| 1a 00 8c c1 60 c2 c3 21 | 88 60 5c 22 88 65 62 88 |....`..!|.`\".eb.|
|000018f0| c4 70 21 29 82 5c 22 00 | c5 60 c6 c7 21 88 60 5c |.p!).\".|.`..!.`\|
|00001900| 22 87 22 20 5b 33 34 20 | 6e 61 72 72 6f 77 2d 74 |"." [34 |narrow-t|
|00001910| 6f 2d 72 65 67 69 6f 6e | 20 66 6f 72 77 61 72 64 |o-region| forward|
|00001920| 2d 73 65 78 70 20 31 20 | 72 65 61 64 20 62 75 66 |-sexp 1 |read buf|
|00001930| 66 65 72 2d 73 75 62 73 | 74 72 69 6e 67 20 73 6b |fer-subs|tring sk|
|00001940| 69 70 2d 63 68 61 72 73 | 2d 66 6f 72 77 61 72 64 |ip-chars|-forward|
|00001950| 20 22 5e 20 3a 2c 0a 09 | 28 22 5d 20 37 29 29 0a | "^ :,..|("] 7)).|
|00001960| 0a 28 64 65 66 69 6e 65 | 2d 6b 65 79 20 63 74 6c |.(define|-key ctl|
|00001970| 2d 78 2d 6d 61 70 20 22 | 60 22 20 28 71 75 6f 74 |-x-map "|`" (quot|
|00001980| 65 20 6e 65 78 74 2d 65 | 72 72 6f 72 29 29 0a |e next-e|rror)). |
+--------+-------------------------+-------------------------+--------+--------+
